##Exerccio 7.2##

library(MASS)
data(Animals)
anim.m2 <- lm(log(brain)~log(body),data=Animals, 
              subset=!(log(Animals$body)>8&log(Animals$brain)<6))

anim.m0 <- lm(log(brain)~1, data=Animals, 
              subset=!(log(Animals$body)>8&log(Animals$brain)<6))
anova(anim.m0,anim.m2)

##1 Qual a relao do comando 'anova' acima com:
anova(anim.m2)

#Anova compara o efeito do modelo nulo com o modelo criado, assim,
# os comandos so iguais. Ele seria diferente se no estivesse comparando com um modelo nulo

##2 Qual a relao entre os valores obtidos por estes comandos:
summary(anim.m0)
mean(log(Animals$brain[!(log(Animals$body)>8&log(Animals$brain)<6)]))
sd(log(Animals$brain[!(log(Animals$body)>8&log(Animals$brain)<6)]))

#A mdia total, que  o a da funo y=a+bx+N(0,sd), e o desvio padro, para contruir o desvio
# dos residuos, so utilizados para montar o modelo nulo.